banded_to_dense Interface

public interface banded_to_dense

An interface to the banded to dense matrix conversion routines.


Module Procedures

private subroutine banded_to_dense_dbl(m, kl, ku, a, x, err)

Converts a banded matrix to a dense matrix.

The banded matrix is stored in a compressed form supplied column by column. The following code segment transfers between a full matrix to the bonded matrix storage scheme. \code{fortran} do j = 1, n k = ku + 1 - j do i = max(1, j - ku), min(n, j + kl) a(k + i, j) = matrix(i, j) end do end do \endcode

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: m

The M-by-N dense matrix.
integer(kind=int32), intent(in) :: kl

The number of subdiagonals. Must be at least 0.
integer(kind=int32), intent(in) :: ku

The number of superdiagonals. Must be at least 0.
real(kind=real64), intent(in), dimension(:,:) :: a

The (KL+KU+1)-by-N banded matrix.
real(kind=real64), intent(out), dimension(:,:) :: x

The M-by-N dense matrix.
class(errors), intent(inout), optional, target :: err

An error object to report any errors that occur.

private subroutine banded_to_dense_cmplx(m, kl, ku, a, x, err)

Converts a banded matrix to a dense matrix.

The banded matrix is stored in a compressed form supplied column by column. The following code segment transfers between a full matrix to the bonded matrix storage scheme. \code{fortran} do j = 1, n k = ku + 1 - j do i = max(1, j - ku), min(n, j + kl) a(k + i, j) = matrix(i, j) end do end do \endcode

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: m

The M-by-N dense matrix.
integer(kind=int32), intent(in) :: kl

The number of subdiagonals. Must be at least 0.
integer(kind=int32), intent(in) :: ku

The number of superdiagonals. Must be at least 0.
complex(kind=real64), intent(in), dimension(:,:) :: a

The (KL+KU+1)-by-N banded matrix.
complex(kind=real64), intent(out), dimension(:,:) :: x

The M-by-N dense matrix.
class(errors), intent(inout), optional, target :: err

An error object to report any errors that occur.